home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1999 March / EnigmA AMIGA RUN 35 (1999)(G.R. Edizioni)(IT)[!][issue 1999-03].iso / earcd / devel / vbcc-68k-src / machines / amiga68k / libsrc / math / math_ieee / fltuld.s < prev    next >
Text File  |  1999-01-01  |  273b  |  17 lines
  1.  xref _MathIeeeDoubBasBase
  2.  
  3.  xdef __ieeefltuld
  4. __ieeefltuld:   ;
  5.  move.l  4(sp),d0
  6.  movem.l d2/d3/a6,-(sp)
  7.  move.l  _MathIeeeDoubBasBase,a6
  8.  jsr     -36(a6)
  9.  tst.l   16(sp)
  10.  bge.s   ll
  11.  move.l  #$41f00000,d2
  12.  moveq   #0,d3
  13.  jsr     -66(a6)
  14. ll:
  15.  movem.l (sp)+,d2/d3/a6
  16.  rts
  17.